object fmLogin: TfmLogin
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Login'
  ClientHeight = 318
  ClientWidth = 458
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object txtUsername: TLabeledEdit
    Left = 264
    Top = 64
    Width = 121
    Height = 21
    EditLabel.Width = 48
    EditLabel.Height = 13
    EditLabel.Caption = '&Username'
    EditLabel.Layout = tlCenter
    LabelPosition = lpLeft
    MaxLength = 32
    TabOrder = 0
    OnKeyPress = txtUsernameKeyPress
  end
  object txtPassword: TLabeledEdit
    Left = 264
    Top = 91
    Width = 121
    Height = 21
    EditLabel.Width = 46
    EditLabel.Height = 13
    EditLabel.Caption = '&Password'
    EditLabel.Layout = tlCenter
    LabelPosition = lpLeft
    MaxLength = 32
    PasswordChar = '*'
    TabOrder = 1
    OnKeyPress = txtPasswordKeyPress
  end
  object btnLogin: TButton
    Left = 216
    Top = 136
    Width = 75
    Height = 25
    Caption = '&Login'
    TabOrder = 2
    OnClick = btnLoginClick
  end
  object btnCancel: TButton
    Left = 328
    Top = 136
    Width = 75
    Height = 25
    Caption = '&Canel'
    TabOrder = 3
    OnClick = btnCancelClick
  end
  object ADConnection1: TADConnection
    Params.Strings = (
      'Database=emarket_mylong'
      'User_Name=emarket_mylong'
      'Password=mylong1117'
      'Server=e-marketkhas.com'
      'DriverID=MySQL')
    ResourceOptions.AssignedValues = [rvAutoReconnect]
    ResourceOptions.AutoReconnect = True
    LoginPrompt = False
    Left = 152
    Top = 8
  end
  object ADQUserPass: TADQuery
    Connection = ADConnection1
    SQL.Strings = (
      
        'select * from users where Username = :Username and Pass = :Passw' +
        'ord')
    Left = 152
    Top = 64
    ParamData = <
      item
        Name = 'USERNAME'
        DataType = ftString
        ParamType = ptInput
        Size = 32
        Value = Null
      end
      item
        Name = 'PASSWORD'
        DataType = ftString
        ParamType = ptInput
        Size = 32
      end>
  end
  object ADGUIxWaitCursor1: TADGUIxWaitCursor
    Left = 48
    Top = 224
  end
  object DataSource1: TDataSource
    DataSet = ADTable1
    Left = 48
    Top = 72
  end
  object ADTable1: TADTable
    Connection = ADConnection1
    UpdateOptions.UpdateTableName = 'users'
    TableName = 'users'
    Left = 152
    Top = 120
  end
  object ADPhysMySQLDriverLink1: TADPhysMySQLDriverLink
    Left = 48
    Top = 8
  end
  object ADPhysIBDriverLink1: TADPhysIBDriverLink
    Left = 48
    Top = 152
  end
end
